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1 Introduction 

One  of  the  goals  of  the  evolving  Packet  Radio  Network  (PRNET)  i9 
to  provide  for  network  access  through  portable  packet  radio  terminals. 
These  terminals  will  implement  packet  radio  software  on  a DEC  LSI -11, 
INTEL  8080,  or  similar  microprocessor.  Owing  to  the  unnecessary 
complexity  and  generality  of  the  Transmission  Control  Protocol  11]  used 
by  the  PRNET,  a single  connection  subset  (TCP0)  has  been  designed 
specifically  for  portable  PRNET  terminal  application  [21. 

Given  a user  TCP0,  it  is  necessary  to  provide  a means  of 
interfacing  a user  at  the  portable  interactive  terminal  to  the  TCP0  and 
thereby  to  the  net  to  which  he  is  attached.  This  interface  should 
provide  for  establishment  and  control  of  network  connections,  and 
interactive  data  flow  between  the  net  and  the  user,  as  well  as 
speci f icat i on  by  the  user  of  various  echoing  and  command  intercept 
options:  In  the  Arpanet,  these  functions  are  provided  by  the  TELNET 
protocol  [33.  This  paper  provides  an  implementation  specification  for 
a TELNET  to  run  under  TCP0  without  operating  system  support  on  a 
microprocessor.  Design  objectives  were  therefore  small  size, 
simplicity,  and  a structure  appropriate  for  character  at  a time  data 
streams  at  or  slower  than  120  cps.  It  is  assumed  that  the  reader  is 
familiar  with  the  TCF0  user  interface  [2],  the  TELNET  protocol  [33, 
and  the  Arpanet  TIP  user  interface  (A3. 


2 The  User  TELNET 

All  interactive  traffic  flow  between  the  terminal  and  the 
network  is  mediated  by  the  TELNET,  which  also  performs  user  command 
interpretat ion  and  execution,  presenting  a 3Ubset  of  the  standard 

Arpanet  TIP  user  interface.  Commands  include: 

1)  "so  <NET>, <TCP>, <S0CKET>" : opens  the  full  duplex 
connection  specified  by  the  supplied  foreign  net,  tcp 
and  socket  numbers,  and  the  implied  local  socket. 

2)  "sc":  closes  the  network  connection. 

3)  "at  c":  sets  transmit  character  at  a time  mode. 

A)  "at  I":  sets  transmit  line  at  a time  mode. 

5)  "ae  I":  6e t s local  echo  mode. 

G)  "ae  r":  sets  remote  echo  mode. 

7)  "a!  character  code>":  sets  a new  command 

intercept  character, 
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The  TELNET  consists  of  a single,  non-reentrant,  non-preemptab I e 
process,  composed  of  a set  of  service  routines  and  a single  cyclic  uait 
(polling)  routine,  from  which  the  service  procedures  are  dispatched  on 
event  completion.  (Note  that  execution  of  the  wait  causes  a context 
switch  to  the  next  in  a circular  queue  of  processes:  TELNET,  TCP0  SEND, 
TCP0  RECEIVE).  Events  include: 

1)  Change  in  connection  or  command  handling  status 
(e.g.,  connection  opened,  or  bad  command  syntax). 

2)  Reception  of  new  dat3  over  the  network 
connection. 

3)  Reception  of  a new  character  from  the  terminal. 

4)  TCP0  send  completion. 

5)  Terminal  output  completion. 

An  event  scoreboard  composed  of  logical  flags  is  used  to  signal 
these  events  and  control  dispatch  of  the  appropriate  service  routines. 
The  flags  corresponding  to  1 through  S above  are; 

1)  STATUS  flags:  these  control  dispatch  of  the 
procedure  COMPOSEMESSAGE.  They  include  OPEN  (connection 
opened),  ERROR  (connection  error),  CLOSED  (connection 
closed),  HOSTNR  (host  not  responding),  CANT  (command 
cannot  be  serviced),  and  BAD  (bad  command  syntax).  Any 
of  these  but  BAD  can  be  set  to  TRUE  by  TCP0, 

2)  NEUDATA:  dispatenes  either  PROCESSDATA  or 
PROCESSTELNETCMO,  dependent  upon  whether  the  current 
input  is  a TELNET  escape  sequence.  This  flag  is  set  to 
TRUE  by  TCP0  when  new  data  awaits  delivery  to  the  user 
process. 

3)  TTYINPUT:  dispatches  either  PROCESSCHAR  or 
PROCESSCOMMAND  dependent  upon  whether  the  current  Input 
is  a user  command  intercept  sequence.  It  is  sst  to  TRUE 
by  the  TTY  input  :nterrupt  service  routine. 

4)  .SENDREADY:  dispatches  AWAKENSEND.  This  flag  is 
set  to  TRUE  by  TCP0  when  new  data  can  be  accepted  for 
sending  to  the  net. 

5) '  PRINTERIDLE:  dispatches  AUAKENPR INTER.  It  is 
set  to  TRUE  by  the  TTY  output  interrupt  service  routine. 

Note  that  other  conditions  can  inhibit  the  dispatch  of  any  of 
the  above  service  routines.  In  general,  test  conditions  in  the  wait 
routine  permit  a routine  call  only  if  the  routine  can  run  to  completion 
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at  that  time,  without  the  need  for  an  intermediate  event  wait.  For 
example,  PROCF.SSDATA  will  not  be  called  while  there  is  no  buffer  space 
for  the  new  character,  even  though  NEUDATA  signals  data  reception.  For 
the  one  volatile  event,  TTYINPUT,  a special  flag,  RING8ELL,  is  set 
should  neither  service  routine  be  immediately  d i spatchab I e.  This  causes 
the  terminal  output  driver  to  warn  the  user  with  a CON'TROL-G  (bell)  that 
input  is  being  rejected. 


3 Data  Structures 

The  data  structures  used  by  the  TELNET  are  eight  buffers: 

TELNETMSGBUF  C j) : two  linear  buffers  (j=0  or  1)  in  which  TELNET 
option  negotiation  messages  destined  for  the  net  are 
placed  for  double  buffered  output.  Associated  with 
these  buffers  is  a flag,  TELNETCMDREADY,  uhich 
indicates  that  the  current  buffer  (TELNETMSGBUF  [ j] ) 
contains  an  unsent  TELNET  command.  This  flag  inhibits 
dispatch  of  PRQCESSTELNETCND  and  execution  of  the  user 
command  "E"  (echo  mode)  until  its  value  is  FALSE. 

SENDBUF  (i):  two  linear  buffers  (i*0  or  1)  in  which  the  output 
stream  of  user  data  to  the  net  is  queued  for  double 
buffered  output.  Associated  with  these  buffers  is 
three  variables:  a).  XMITMODE  (=  "C"  or  "L") -- 'ndicates 
whether  character-  or  I ine-at-a-t ime  transmission  is  in 
effect,  b) . CHARSTOSEND--a  flag  that  indicates  to  the 
procedure  AUAKENSEND  when  it  is  time  to  SEND  the 
contents  of  SENDBUF  [ i ) to  the  net,  c).  BYTECOUNT— th i s 
counter  is  passed  to  the  TCP0  in  a SEND  call  and 
specifies  the  number  of  octets  to  be  sent.  Service 
routine  dispatch  for  the  TTY1NPUT  event  is  inhibited 
whi le  SENDBUF  [ i 3 is  full. 

MESSAGEBUE : a linear  buffer  used  for  construction  of  user 

status  messages  destined  for  the  terminal.  Dispatch  of 
C0MP03EMESSAGE  is  inhibited  uhile  this  buffer  is  non- 
empty, 

ECHOBUF:  a circular  queue  containing  the  stream  of  characters 
to  be  locally  echoed.  All  characters  of  a command 
intercept  sequence  are  automatically  enqueued  here. 
Associated  with  this  buffer  is  a variable  ECHOMODE  (• 
"R"  for  remote,  "L"  for  local)  which  indicates  whether 
locally  generated  characters  are  to  be  echoed. 

RECEIVEBUF:  a circular  queue  in  which  characters  received  over 
the  network  connection  are  placed.  Dispatch  of  NEUDATA 


3 


Mihi-Telnet  Implementation 


February  2,  197b 


event  service  procedures  is  inhibited  while  RECEIVEBUF 
is  full. 

COMMANDBUF:  a linear  queue  for  assembly  of  user  commands.  If 
it  is  overflowed,  the  user  is  informed  with  a "BAD" 
status  message. 

Note  that  there  are  two  output  streams  to  the  network 
(TELNETMSGBUF  ( j]  and  SENDBUFIi})  and  three  output  streams  to  the 
terminal  (MESSAGEBUF,  ECHOBUF,  RECEIVEBUF).  This  scheme  greatly 
simplifies  buffer  management  and  the  overall  control  structure,  as  well 
as  permitting  a priority  structure  to  be  assigned  to  different 
characters,  depending  upon  source  (the  streams  are  listed  above  from 
highest  to  louest  priority);  characters  of  higher  priority  are  processed 
for  output  before  those  lower  in  the  hierarchy. 

Also  an.  important  part  of  the  control/data  structure  are  two 
counting  variables: 

TEINETCOUNT:  indicates  how  many  bytes  of  a TELNET  escape 

sequence  have  been  received  over  the  network  connection 
(the  start  of  such  a sequence  is  signalled  by  an  "IAC" 
in  the  TELNET  input  stream).  On  NEUOATA  event  it  is 
used  to  select  between  PROCESSDATA  (if-0)  and 
PROCESSTELNETCMD  (if>0). 

COfiflANDCOUNT ; indicates  how  many  bytes  of  a command  intercept 
sequence  have  been  received  from  the  terminal  (the 
start  of  such  a sequence  is  signalled  by  an 
INTERCEPTCHAR  in  the  terminal  input  stream).  On 
TTYINPUT  event,  it  is  used  to  select  between 
PROCESSCHAR  ( i f -0)  and  PROCESSCOMMAND  (if>0). 


4 Service  Routines 

There  are  four  categories  of  TELNET  service  procedures: 

1)  Net  input  handlers:  PROCESSDATA, 

PROCESSTELNETCMD. 

2)  Terminal  input  handlers:  PROCESSCHAR, 

PROCESSCOMMAND,  PARSE,  ASCI  I TOBINARY. 

3)  Net  output  handlers:  AUAKENSEND,  TELNETREPLY, 

SENDCHAR. 

4)  Terminal  output  handlers: 

TT Y I NPUT I NTERRUPTSERV I CE , T T YOUTPUT I NTERRUPTSERVICE , 

C0MP0SEI1ESSAGE,  AUAKENPR INTER,  TYPENEXT,  TYPE. 
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Each  list  of  routines  is  in  top  level  to  lower  level  order, 

C0MPD5EMESSAGE  is  called  from  the  event  wait  loop  when 
MESSAGEBUF  is  free  and  a STATUS  flag  has  been  set.  For  each  set  flag, 
status  text  is  placed  in  MESSAGEBUF.  All  status  flags  are  then  reset  to 
FALSE. 


PROCESSDATA  is  cailed  from  the  wait  loop  if  a termi na I -bound 
character  arrives  and  RECEIVEBUF  has  space.  The  character  is  fetched 
from  the  TCPO  via  a RECEIVE  call,  and  then  enqueued  in  RECEIVEBUF, 
unless  it  is  "I AC",  in  which  case  TELNETCOUNT  is  incremented. 

PROCESSTELNETCMD  is  called  from  the  wait  loop  when  a TELNET 
command  byte  arrives.  It  has  two  entry  points,  one  chosen  by  the  value 
of  TELNETCOUNT.  The  first  handles  reception  of  the  second  byte  of  the 
escape  sequence.  If  this  byte  is  "IAC",  then  it  is  enqueued  in 
RECEIVEBUF  and  TELNETCOUNT  reset  to  zero,  else  it  is  saved  in  the 
variable  COMMAND  and  TELNETCOUNT  incremented.  The  second  entry  point 
handles  reception  of  the  third  byte  (stored  into  OPTION)  and  acts  on  the 
TELNET  command  received  by  sending  out  an  appropriate  TELNET  reply,  plus 
possibly  setting  a new  ECHOMODE  value. 

TELNETREPI  Y is  called  from  PROCESSTELNETCMD,  and  passed  either 
"DONT"  or  "UONT".  It  assembles  a TELNET  reply  in  TELNETMSGBUF t j]  , using 
this  parameter  and  OPTION,  and  sets  TELNETCMDREADY  to  TRUE. 

PROCESSCHAR  is  called  from  the  wait  loop  when  a new  net-destined 
character  arrives  from  the  terminal  and  there  is  buffer  room  for  it.  If 
the  new  character  is  the  command  intercept  character,  INTERCEFTCHAR, 
then  conditions  are  initialized  for  command  collection,  otherwise  the 
character  is  prepared  for  transport  to  the  net  by  a call  on  SENDCHAR. 

PROCESSCOMMAND  is  called  from  the  wait  loop  when  a user  command 
byte  arrives  from  the  terminal.  The  character  is  enqueued  in  ECHOBUF 
and  COMMANDBUF.  If  a carriage  return,  PARSE  is  called. 

SENDCHAR  is  called  from  PROCESSCHAR  and  PROCESSCOMMAND.  The 
character,  passed  in  the  global  variable  CHAR,  is  enqueued  in 
SENOBUF  [ i 3 , and  if  local  echo  is  set,  it  is  also  enqueued  in  ECHC3UF. 
If  the  character  is  special  (e.g.,  a control  character,  carriage  return, 
or  escape) , if  the  transmission  mode  is  character  at  a time,  or  if 
SENDBUF I i ) is  full,  CHARSTOSEND  is  set  to  TRUE,  signalling  that  a SEND 
should  be  issued. 

PARSE  is  called  when  COMMANDBUF  contains  a complete  command. 
Syntax  is  checked;  if  not  good,  BAD  is  set  to  TRUE.  Otherwise,  the 
appropriate  action  is  taken  (e.g.,  issuing  an  OPEN,  CLOSE,  setting  a new 
intercept  character,  etc.). 

ASCI  I TOBINARY  is  called  from  PARSE,  and  converts  an  ASCII  string 
in  radix-10  to  binary,  of  length  in  bits  specified  by  a parameter.  This 
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routine  uses  a global  index  into  COMMANDBUF,  5TRING0RIGIN,  to  find  the 
left  end  of  the  string.  A global  flag,  BADSTRING,  is  set  to  TRUE  if  bad 
string  syntax.  STRINGORIOIN  is  returned  pointing  to  the  character  past 
the  string  delimiter  (CR  or  COMMA  if  good  syntax). 

AUAKENSENO  is  dispatched  from  the  event  wait  loop  on  signal  from 
the  TCP0  via  SENDREAOY.  If  there  is  a TELNET  reply  ready,  it  is  sent 
via  a SEND  call.  Otherwise,  if  CHARSTOSEND,  then  SENDBUFti)  is  output 
via  a SEND.  In  either  case,  buffer  switching  is  performed  after  the 
SEND. 

T T Y I NPUT I NTERRUPTSERV I CE  and  TTYOUTPUT I NTERRUPTSERV  ICE  are 
called  via  device  interrupt.  They  set  to  TRUE  the  TTYINPUT  and 
PRiNTERIDLE  flags  respectively. 

AUAKENPRINTER  is  called  from  the  event  wait  loop  when 
PRINTERIDLE.  From  highest  to  lowest  priority  it  will  do  one  oft 

1)  TYPE  a CONTROL-u  if  RINGBELL  is  TRUE,  and  set 
RINGBELL  to  FALSE. 

2)  TYPE  the  next  character  of  a carriage  return 
expansion  (if  CRCOUNT>0) . A variable,  NULLSNEEDED, 
controls  the  number  of  null  characters  generated  in  the 
expansion. 

3)  TYPE  the  next  space  of  a tab  expansion  (if 
TABCOUNT  >0) . 


A) 

empty. 

TYPENEXT 

the 

contents  of  MESSAGEBUF, 

i f 

non- 

S) 

TYPENEXT 

the 

contents  of  ECHOBUF, 

and 

set 

TABCOUNT 

or  CRCOUNT 

to  the  appropriate  value 

if 

the 

character  is  a tab  or  carriage  return. 

6)  TYPENEXT  the  contents  of  RECEI VEBUF, 

TYPENEXT  is  passed  a buffer,  from  which  it  dequeues  the  next 
character  and  then  TYPEs  it.  A variable  COLCOUNT  is  also  maintained. 
This  is  used  in  setting  TABCUUNT  for  tab  expansion. 

TYPE  is  passed  a character  which  it  sends  to  the  terminal  for 
printing.  PRiNTERIDLE  is  set  to  FALSE. 
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5 Peeudo-Algol  Implementat ion  Guide 


beg  i n 

TELNET  I NI T: 

(initialize  all  buffers); 

TELNE  TCQUN l-COMMANDCOUNT-0  < 

T ABCOUNT-CRCOUNT-0  ♦ 

BYTECOUNT-COLCOUNT-0; 
i «-  j-0: 

NULLSNEEOED- (whatever  is  appropriate  for  the  device); 

ECHOMODE  -REQUESTEDnrjDr--MRH; 

XMITM00E-"C"; 

I NTERCEPTCHAR*-"®" ; 

(all  flags  but  PRINTFR1DLE  set  to  FALSE); 

PR  INTER  I OLE-TRUE; 

(whatever  other  miner  housekeeping  details); 

UAITLOOP: 

(wait  for  si gna I ) ; 

if  (OPEN  | ERROR  | CLOSED  | CANT  |BAD  jh'oTKR)  and  IflESSAGEBUF  empty)  then 
COMPOSEMESSAGE; 

if  NEUDATA  and  (RECEI VEBUF  nut  full)  th«n 

if  (TELNETCOUNT-0)  then 
beg  i n 

NEUDATA-FALSE; 

PROCESSOATA; 

end 

else  if  (not  TELNETCMDREADY)  then 
beg  i n 

NEUOATA-FALSE; 

PROCESSTELNETCMD; 

end; 

if  TTYINPUT  then 
begin 

if  (SENDBUF  ( i ) full)  or  (ECHOBUF  full)  then  RINGBELL«-TRUE  else 
if  COMMANDCOUNT-0  then  PROCESSCHAR  else  PROCESSCOMMAND; 
TTYINPUT-FALSE; 
end; 

i f SENDREADY  then  AUAKENSEND; 
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if  PRINTERIDLE  then  AUAKENPR INTER; 
go  to  UAITLOOP; 

PROCEDURE  COMPOSEMESSAGE; 


begi  n 

if  BAD  then  (place  "BAD<CRLF><NULl  STRING>"  in  MESSAGEBUF) ; 
if  CANT  then  (place  "CANT<CRLF><NULL  5TRING>"  in  MESSAGEBUF); 
if  OPEN  then  (place  "OPEN<CRLF><NULL  STRING>"  in  MESSAGEBUF); 
if  ERROR  then  (place  "CONNECTION  ERROR  ...  etc) j 
if  HOSTNR  then  (place  "HOST  NOT  RESPONDING  . . . etc) 5 
if  CLOSED  then  (place  "CLOSED  . . . etc); 

BAD-CANT  -OPEN-ERROR-HOSTNR-CLOSED-F ALSE ; 
end; 

PROCEDURE  PROCESSOATA; 


beg  i n 

RECE I VE (CHAR, 1 , BYTESXFERRED) ; 

if  CHAR- 1 AC  then  TELNET COUNTS  else  (enqueue  CHAR  in  RECEl  VEBUF) ; 
end; 

PROCEDURE  PROCESSTELNETCMD; 
case  TELNETCOUNT  of 


-1: 

begin 

RECEIVE (COMMAND, 1 , BYTESXFERRED) ; 

if  COMMAND  not  equal  (WILL |U0NT |D0|D0NT)  then 
beg  i n 

TELNETCOUNT-0; 

if  COMMAND*! AC  then  (place  "I AC"  in  RECEl VEBUF) j 
end 

else  TELNETC0UNT«-2; 

end; 

-2; 

begin 

TELNETCOUNT-0; 

RECE I VE (CPI 1 ON, 1 , BYTESXFERRED) ; 


case  COMMANO  of 
-WILL! 

if  (OPTION-ECHO)  and  (REQUESTEDMODE-"R")  then 
ECHOMODE- "R" 
else  TELNETREPLY(DONT) ; 
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-00: 

TELNETREPLY (L'ONT) ; 

•UONT  s 

if  (OPTION-ECHO)  then 

if  REQUESTEDriODE-"R''  then  CANT-TRUE  else 
ECHOhODE* "L" ; 

-OONT: 

TELNETREPLY  (UONT); 

end; 

PROCEDURE  TELNETREPLY (CUD); 

begin 

(place  "<lAC><Cn0><0PT10N>"  into  TELNETMSGBUF ( j) ) ; 

TELNETCHDREADY-TRUE; 

end; 

PROCEDURE  PROCESSCHAR; 
begin 

(fetch  tty  character  to  CHAR); 

if  CHAR- I NTEPCEPTCHAR  then 
begin 

COnnANDCOUNT-l; 

(initialize  CCMflANDBUFJ; 

< enqueue  CHAR  in  ECHOBUF); 
end 

else  SENDCHAR; 
end; 

PROCEDURE  SENDCHAR; 
begin 

if  (ECH0f10DE*"L" ) then  (enqueue  CHAR  in  ECHOBUF); 

(enqueue  CHAR  in  SENDBUF  til); 

BYTEC0UNT-BYTEC0UNT+1 ; 

if  (CHAR  a special  character)  or  (XMITNODE«"C")  or  (SENDBUF  t i 3 full) 
then  CHARSTOSEND-TRUE; 

end; 

PROCEDURE  PROCESSCOMMAND; 
beg  i n 

(fetch  tty  character  to  CHAR); 

(fold  CHAR  to  upper  case); 

if  CONMANDCOUNT-l  and  CHAR-INTERCEPTCHAR  then 
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begi  n 

COMMANDCOUNT*-  3; 

5ENDCHAR; 

end 


else  begin 

(enqueue  CHAR  in  ECHOBUF); 


if  (COMMANDBUF  not  full)  then 
beg  in 

(enqueue  CHAR  in  COtltlANDBUF)  i 
C0t1HANDC0UNT  «-CCt1f1  ANDCOUN  T 1 : 
if  CHAR-CR  then  PARSEs 
end 


e i se  begin 
BAD«-TRUE; 
COMMANOCOUNT<-0; 
end; 


end; 


end; 

PROCEDURE  PARSE; 

if  CONtlANOBUF  (2)  net  equal  (SPACE | CR)  tnen  BAD-TRUE  nlse 
begin 

case  COMMANDBUF (1)  of 

If’  COMMANDBUF  (?)  -CR  then  CLOSE  else  BAD*-TRUEj 


-0; 

begin 

BADSTRING-FAISE; 

STR  ] NGOR I G I N<-3  s 
NET-ASCII T0BINARYI8); 

TCP-ASCI I TOBINARY (161; 

SOCKET-ASCI I T0B1NARY(2A) ; 

if  BAOSTRING  or  COffllANDBUF (STRINGORIGIN-l)  not  » CR  then 
BAD-TRUE 

else  begin 

OPEN (NET , TCP, SOCKET, RETURNCOOE ) ; 

if  RETURNCODE  not  equal  0 then  CANT*- 1 RUE; 

end; 


end; 
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begin 

RADSTRINn-FAl  SF-. 

STRINGOR! GIN-3; 

TEMP-ASCII  TOBINARY (7); 

if  BADSTRING  01  COMMANDBUF (3TRING0RIGIN-1)  not  -CR  then 
BAD-TRUE 

else  INTERCEPTCHAR-TEMP; 


end; 


-T: 

if  COMMANDBUF  (4)  «CR  and  COfiriANDBUF  (3)  - ("C"  | "L")  then 
XMI  TMODE-COflMANDBUF  (3) 
else  BAD-TRUE; 


«E: 
begi  n 

if  COMMANDBUF (4 ) -CR  and  COMMANDBUF (3) - ("L" |"R" ) then 
if  ECHOMODE  not  equal  COMMANDBUF (3)  then 
if  TELNETCMDREADY  then  BAD-TRUE  else 


beg  i n 

REQUESTEDMODE-COMMANDBUF (3) 
if  REQUESTEDMODE="L"  then 
(set  <IACxOONTxECHO> 
in  TELNETMSGBUF  [j) ) 
else  (set  <1  AC><DOxECHO> 
in  TELNETMSGBUF £ j] ) ; 
TELNETCMDREADY-TRUE; 
end 

else  BAD-TRUE; 
end; 


» (anything  else); 

BAD-TRUE; 

COMMANDCOUNT-0 ; 
end; 

BINARY  PROCEDURE  ASCI  I TOBINARY (LENGTH) ; 


begin 

(convert  string  from  left  to  right  starting  at 
STRINGORIGIN  in  COMMANDBUF  to  binary,  and  stop  when  a 
delimiter  is  found  or  ’LENGTH"  bits  is  overflowed); 

if  (LENGTH  is  o'-.rf lowed)  or  (delimiter  not  equal  (cr|","))  then 
BADSTRING-TRUE; 


11 


Mini -Tel net  Implementation 


February  2,  197G 


(leave  STRING0RIG1N  pointing  to  character  after  delimiter); 
end; 

PROCEDURE  AUAKENSEND; 

if  TELNETCMDREADY  then 
begin 

TELNE  TCriDRE  ADY«-SENDRE  ADY-FALSE ; 

SEND(TELNETNSGBUF  [ j)  ,3) ; 

j*-(j+l)  mod  2; 

end 

else  if  CHARSTOSEND  then 
beg  i n 

CHARSTOSEND-SENDREADY-FALSE ; 

SEND (SENDBUF  [ i ] , BYTECOUNT) ; 

BYTECOUNT<-0; 
i«-(i+l)  mod  2; 
end; 

PROCEDURE  AUAKENPR INTER; 
if  RINGBELl  then 
begin 

RINGBELL«-FALSE; 

TYPE (CONTROLG) ; 
end 

else  if  CRCOUNT>0  then 
begin 

CRC0UNT-CRC0UNT+1; 
if  CRC0UNT-2  then  TYPE(LF)  else 
begin 

TYPE (NULL); 

i f CRCOUNT -NULLSNEEOED+2  then  CRCOUNT*-0s 
end 

end 

else  if  TABCOUNT>0  then 
beg  i n 

TYPE (SPACE); 

TABC0UNT«-TABC0UNT-1 ; 
end 

else  if.  (MESSAGEBUF  not  empty)  then  TYPENEXT (tTESSAGEBUF) 
else  if  (ECHOBUF  not  empty)  then 
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begin 

if  (next  character  is  TAB)  then  TABCOUNT- (8-COICOUNT)  else 
if  (next  character  is  a CR)  then  CRCOUNT-1; 

TYPENEXT  (ECHOBUF) ; 
end 

else  if  (RECEI VEBUF  not  empty)  then  TYPENEXT (RECEIVEBUF) ; 
PROCEDURE  TYPENEXT (BUFFER); 
begin 

(dequeue  next  character  from  BUFFER  into  CHAR); 
if  (CHAR  is  printable)  then  COLCOUNT- (C0LC0UNT+1 ) MOD  8 else 
if  CHAR-CR  then  COLCOUNT-0; 

TYPE (CHAR); 
end; 

PROCEDURE  TYPE  (CHARACTER); 
begi  n 

PRINTERIDLE-FAtSE; 

(send  CHARACTER  to  tty); 
end; 

PROCEDURE  TTY  I NPUT I NTERRUPTSERV I CE ; 
beg  i n 

(service  the  device); 

NEUDATA-TRUE; 

end; 

PROCEDURE  T T YOUTPUT I NTERRUPTSERV ICE; 
oeg  i n 

(service  the  device); 

PR ;NTER I OLE-TRUE; 
end; 


end. 
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